home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
130 MIDI Tool Box
/
130 MIDI Tool Box.iso
/
midiplan
/
midiplan.bas
Wrap
BASIC Source File
|
1979-12-31
|
3KB
|
58 lines
5 VIEW PRINT
10 SCREEN 2,0,0: CLS: KEY OFF
20 LIGNE$= STRING$(80,196)
30 BOX$="r120 d60 l120 u60": DIODE$="d10 r10 g10 nr10 nd10 nl10 h10 r10"
40 RES$="e5 f10 e10 f10 e10 f5": GATE$="l15 e15 f15 l15"
50 GROUND$="d10 bl10 r20 bl4 bd5 l12 bd5 br4 r4"
60 PRINT TAB(8) "M.I.D.I. Interface Plan" TAB(60)"by Michel Poirier"
70 PRINT LIGNE$: PRINT
80 PRINT TAB(44)"Opto-Isolator +5v"
85 PRINT TAB(64)"270 Ohms": PRINT TAB(42)"2" TAB(59)"6"
90 PRINT TAB(56)"5v": PRINT TAB(35)"D1"
100 PRINT TAB(23)"220 Ohms" TAB(35)"1N914" TAB(72)"To UART"
110 PRINT TAB(56)"Vo": PRINT
120 PRINT TAB(9)"2" TAB(42)"1" TAB(59)"4"
130 PRINT TAB(5)"5" TAB(13)"4": PRINT TAB(53)"5"
140 PRINT TAB(4)"3" TAB(14)"1": PRINT: PRINT: PRINT TAB(6)"MIDI IN"
150 PSET (340,35): DRAW BOX$: PSET (400,95): DRAW GROUND$
160 PSET (260,50): DRAW DIODE$
170 PSET (180,80): DRAW RES$
180 CIRCLE (140,65),30,,,,2.5: PSET (140,95): DRAW GROUND$
190 CIRCLE (70,115),30: CIRCLE (50,116),4: CIRCLE (56,109),4: CIRCLE (70,106),4
200 CIRCLE (90,116),4: CIRCLE (84,109),4
210 PSET (490,49): DRAW RES$: CIRCLE (479,33),3
220 PSET (56,109): DRAW "h20 u40 r304 br120 r19 nu16 r9 br53 r20 d31"
230 PSET (84,109): DRAW "e20 u9 r74 br53 r108 br120 r135 nh5 g5"
240 LOCATE 18,38,0: PRINT "* Opto-Isolator shown is Sharp PC-900."
250 PRINT TAB(40)"Also HP 6N138 or others can be used"
260 PRINT TAB(40)"with appropriate changes.": PRINT
270 PRINT TAB(38)"* Resistors are 5%."
275 LOCATE 24,40: PRINT "Press a Key...";
280 WHILE INKEY$="": GOTO 280: WEND
290 VIEW PRINT 3 TO 24: CLS
300 LOCATE 5,45,0: PRINT "+5v"
310 LOCATE 8,46: PRINT "220 Ohms"
320 LOCATE 15,35: PRINT "220 Ohms"
330 PRINT TAB(8)"From"
340 PRINT TAB(8)"UART": PRINT TAB(27)"A"
350 PRINT TAB(60)"2"
360 PRINT TAB(57)"5" TAB(65)"4": PRINT
370 PRINT TAB(56)"3" TAB(66)"1"
380 PRINT: PRINT TAB(58)"MIDI OUT";
400 CIRCLE (340,35),4
410 PSET (340,35): DRAW "d15 a3;"+RES$+"a0 d15 r200 d30 g40"
420 CIRCLE (484,167),30
430 CIRCLE (484,157),4: CIRCLE (500,160),4: CIRCLE (468,160),4
440 CIRCLE (505,167),4: CIRCLE (462,167),4
450 PSET (484,157): DRAW "u45 l75"
460 PSET (468,160): DRAW "h30 l120 a2;"+RES$+"a0;"
470 DRAW "l30 bl45 l20 bl45 l20 nh5 g5"
480 PSET (130,130): DRAW "a3;"+GATE$+"a0": CIRCLE (168,130),5
490 PSET (195,130): DRAW "a3;"+GATE$+"a0": CIRCLE (233,130),5
500 CIRCLE (400,110),30,,,,3
510 PSET (400,139): DRAW GROUND$
515 LOCATE 21,8: PRINT "* Gate A is IC or transistor."
517 PRINT: PRINT TAB(8)" Press a Key..."
520 WHILE INKEY$="": GOTO 520: WEND
530 VIEW PRINT: CLS: SCREEN 0,0,0